<%
Dim webPath
webPath=""
Dim ConnectAcc
Dim ConnectSql

ConnectAcc="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("datebase/system.mdb") & ";Persist Security Info=False"

ConnectSql="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1,2433;User ID=sf2008; Password=sf820812;Initial Catalog=jxsoufun"

ConnectSqlHome="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1,2433;User ID=homeuser; Password=homeuser850816;Initial Catalog=HOME"

function getConn()
Dim fun_conn
	set fun_conn=server.createobject("adodb.connection")
	fun_conn.open ConnectAcc
	getConn=fun_conn
end function 

'?SQL
function excuteCommand(byval sql)
	Dim f_conn
	set f_conn=server.createobject("adodb.connection")
	f_conn.open ConnectAcc
	f_conn.Execute sql
	f_conn.close
end function 

%>